From: Jim Blandy <jimb@redhat.com>
Date: Mon, 24 May 1993 02:12:13 +0000 (+0000)
Subject: * lucid.el (switch-to-other-buffer): Build the list of acceptable
X-Git-Tag: archive/raspbian/1%29.2+1-2+rpi1^2~5^2~96058
X-Git-Url: https://dgit.raspbian.org/%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:///%22http:/www.example.com/cgi/%22https:/www.github.com/%22bookmarks:/?a=commitdiff_plain;h=0b9be2e709b2d9bce133f9819ee2266ec8228665;p=emacs.git

* lucid.el (switch-to-other-buffer): Build the list of acceptable
	buffers properly.
---

diff --git a/lisp/emacs-lisp/lucid.el b/lisp/emacs-lisp/lucid.el
index 35404b967e6..7a8ff4789ba 100644
--- a/lisp/emacs-lisp/lucid.el
+++ b/lisp/emacs-lisp/lucid.el
@@ -121,10 +121,10 @@ bottom of the buffer stack."
 	  (apply 'nconc
 		 (mapcar
 		  (lambda (buf)
-		    (if (= (string-to-char (buffer-name (car (cdr tail))))
-			   ?\ )
+		    (if (= ?\  (string-to-char (buffer-name buf)))
 			nil
-		      (list buf)))))))))
+		      (list buf)))
+		  (buffer-list)))))))
 
 (defalias 'find-face 'internal-find-face)
 (defalias 'get-face 'internal-get-face)